home *** CD-ROM | disk | FTP | other *** search
/ Gamers Delight 2 / Gamers Delight 2.iso / Aminet / game / think / MADgic41.lzh / 1988 / wipe5.s < prev    next >
Text File  |  1989-10-04  |  3KB  |  76 lines
  1. ;Wipe 5
  2. ;by Anonymous  
  3. ;
  4. COUNT         DAT                    0
  5. START         MOV      COUNT-1,       CLEAR
  6. LOOP1         SUB      SUBT,          PNTR
  7.               CMP      CLEAR,      @  PNTR
  8.               JMP      WIPE
  9.               JMP      LOOP1
  10. WIPE          CMP      IMP,        @  PNTR
  11.               JMP      WIPE2
  12. GATE          SPL      GETIMP
  13. WIPE2         MOV      PNTR,          PTR
  14. LOOP2         MOV      SPLIT,      @  PTR
  15.               ADD   #  1,             PTR
  16.               CMP      CLEAR,      @  PTR
  17. CLOSED        JMP      LOOP2
  18.               MOV      PTR,        <  COUNT
  19. WIP2          MOV      SPLIT,      @  PNTR
  20.               CMP      CLEAR,      <  PNTR
  21.               JMP      WIP2
  22.               CMP      SPLIT,         PTR
  23.               JMP      LOOP1
  24.               MOV      COUNT,         PNTR
  25.               MOV   # -58,            PNTR
  26.               ADD      COUNT,         PNTR
  27.               MOV      CLEAR,      @  PNTR
  28.               SUB   #  4,             SUBT
  29.               JMN      LOOP1,         SUBT
  30.               MOV      COUNT,         PTR
  31.               MOV   #  0,             COUNT
  32. LOOP4         MOV   <  COUNT,         CLEAR
  33.               MOV      SPLIT2,     @  CLEAR
  34.               CMP      COUNT,         PTR
  35.               JMP      LOOP4
  36.               MOV      PNTR,          PTR
  37. LOOP3         MOV      PTR,        <  PNTR
  38.               JMP      LOOP3
  39. IMPPTR        DAT                    66
  40. IMPPTR2       DAT                    66
  41. VELOCITY      DAT                    3
  42. GETIMP        ADD      PNTR,          IMPPTR
  43.               MOV      CLOSED,        GATE
  44.               MOV      IMPPTR,        IMPPTR2
  45. LOOP5         MOV      CLEAR,      @  IMPPTR
  46.               CMP   @  IMPPTR2,       IMP
  47.               JMP      LOOP5
  48.               MOV      CLEAR,      @  IMPPTR2
  49.               ADD      VELOCITY,      IMPPTR2
  50.               ADD      VELOCITY,      IMPPTR
  51.               CMP   @  IMPPTR2,       IMP
  52.               JMP      LOOP5
  53.               ADD   #  1,             VELOCITY
  54.               JMP      LOOP5
  55. IMP           MOV      IMP,           IMP+1
  56. SUBT          DAT                    12
  57. SPLIT2        SPL                    SPLIT2
  58. CLEAR         DAT                    0
  59. PTR           DAT                    0
  60. SPLIT         SPL                    PTR
  61. PNTR          DAT                   -58
  62.               DAT                    1
  63.               DAT                    1
  64.               DAT                    1
  65.               DAT                    1
  66.               DAT                    1
  67. ; 
  68.               DAT                    1
  69.               DAT                    1
  70.               DAT                    1
  71.               DAT                    1
  72.               DAT                    1
  73.               DAT                    1
  74.               DAT                    1
  75.               DAT                    1
  76.               END      START